inherited frmCartaoLan: TfrmCartaoLan
  Left = 415
  Top = 176
  Caption = ''
  ClientHeight = 580
  ClientWidth = 665
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 543
    Width = 665
  end
  inherited Panel2: TPanel
    Width = 665
    Height = 543
    inherited Panel3: TPanel
      Width = 663
      Caption = 'Controle de Cart'#245'es'
      inherited GroupBox1: TGroupBox
        Left = 584
      end
    end
    inherited Panel4: TPanel
      Width = 663
      Height = 501
      inherited SbHints: TStatusBar
        Top = 478
        Width = 655
      end
      object pnl_parcelas: TPanel
        Left = 4
        Top = 265
        Width = 655
        Height = 213
        Align = alClient
        TabOrder = 1
        object DBGrid2: TDBGrid
          Left = 1
          Top = 17
          Width = 653
          Height = 166
          Hint = 'Click na linha que deseja baixar / alterar'
          TabStop = False
          Align = alClient
          Ctl3D = False
          DataSource = DtSrcLancamentos
          Enabled = False
          Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ParentCtl3D = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid2CellClick
          OnDrawColumnCell = DBGrid2DrawColumnCell
          Columns = <
            item
              Expanded = False
              FieldName = 'CLP_SEQ_PARCELA'
              ReadOnly = True
              Title.Caption = 'Parcela'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLP_DATA_VENCIMENTO'
              Title.Caption = 'Vencimento'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLP_VALOR'
              ReadOnly = True
              Title.Caption = 'Valor R$'
              Width = 81
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLP_TAXA'
              ReadOnly = True
              Title.Caption = 'Taxa'
              Width = 44
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLP_VALOR_A_RECEBER'
              ReadOnly = True
              Title.Caption = 'Valor a Receber R$'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLP_VALOR_RECEBIDO'
              ReadOnly = True
              Title.Caption = 'Valor Recebido R$'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLP_DATA_RECEBIMENTO'
              ReadOnly = True
              Title.Caption = 'Data Receb.'
              Width = 70
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLP_TAXA_ANTECIPA'
              Title.Caption = 'Taxa Antec.'
              Width = 68
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CLP_DESC_ANTECIPA'
              Title.Caption = 'Desc.Antecip.'
              Width = 75
              Visible = True
            end>
        end
        object pnl_botoes_parcelas: TPanel
          Left = 1
          Top = 183
          Width = 653
          Height = 29
          Align = alBottom
          TabOrder = 1
          object BitBaixa: TBitBtn
            Left = 2
            Top = 2
            Width = 75
            Height = 25
            Hint = ' Baixa lancamento de cart'#227'o de cr'#233'dito '
            Caption = '&Baixa'
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnClick = BitBaixaClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
          end
          object BitExtorna: TBitBtn
            Left = 77
            Top = 2
            Width = 75
            Height = 25
            Hint = ' Extorna lancamento de cart'#227'o de Cr'#233'dito '
            Caption = '&Estorna'
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnClick = BitExtornaClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
              33333333333F8888883F33330000324334222222443333388F3833333388F333
              000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
              F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
              223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
              3338888300003AAAAAAA33333333333888888833333333330000333333333333
              333333333333333333FFFFFF000033333333333344444433FFFF333333888888
              00003A444333333A22222438888F333338F3333800003A2243333333A2222438
              F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
              22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
              33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
              3333333333338888883333330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
          end
          object BitRetorna: TBitBtn
            Left = 153
            Top = 2
            Width = 75
            Height = 25
            Hint = ' Retorna ao grid de consulta '
            Caption = '&Retorna'
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            OnClick = BitRetornaClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
              F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
              000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
              338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
              45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
              3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
              F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
              000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
              338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
              4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
              8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
              333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
              0000}
            NumGlyphs = 2
          end
        end
        object Panel6: TPanel
          Left = 1
          Top = 1
          Width = 653
          Height = 16
          Align = alTop
          Caption = 'Parcelas'
          Color = clSkyBlue
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
        end
      end
      object pnl_lancamento_cartao: TPanel
        Left = 4
        Top = 4
        Width = 655
        Height = 261
        Align = alTop
        TabOrder = 2
        object Label9: TLabel
          Left = 242
          Top = 27
          Width = 41
          Height = 13
          Caption = 'Empresa'
        end
        object Label6: TLabel
          Left = 9
          Top = 178
          Width = 63
          Height = 13
          Caption = 'Observa'#231#245'es'
        end
        object Label5: TLabel
          Left = 527
          Top = 144
          Width = 41
          Height = 13
          Caption = 'Valor R$'
        end
        object Label7: TLabel
          Left = 423
          Top = 144
          Width = 35
          Height = 13
          Caption = 'Taxa %'
        end
        object Label3: TLabel
          Left = 327
          Top = 144
          Width = 61
          Height = 13
          Caption = 'Qt.Parcela(s)'
        end
        object Label10: TLabel
          Left = 9
          Top = 144
          Width = 56
          Height = 13
          Caption = 'Autoriza'#231#227'o'
        end
        object Label4: TLabel
          Left = 9
          Top = 65
          Width = 31
          Height = 13
          Caption = 'Cart'#227'o'
        end
        object Label8: TLabel
          Left = 452
          Top = 64
          Width = 21
          Height = 13
          Caption = 'Lote'
        end
        object Label2: TLabel
          Left = 135
          Top = 27
          Width = 57
          Height = 13
          Caption = 'Data Venda'
        end
        object Label1: TLabel
          Left = 9
          Top = 26
          Width = 55
          Height = 13
          Caption = 'Documento'
        end
        object Label11: TLabel
          Left = 8
          Top = 104
          Width = 31
          Height = 13
          Caption = 'Conta:'
        end
        object Label12: TLabel
          Left = 328
          Top = 104
          Width = 49
          Height = 13
          Caption = 'Subconta:'
        end
        object DBMemo1: TDBMemo
          Left = 9
          Top = 191
          Width = 632
          Height = 59
          DataField = 'CAL_HISTORICO'
          DataSource = DtSrc
          Enabled = False
          TabOrder = 20
        end
        object Dbe_Autorizacao: TDBEdit
          Left = 9
          Top = 158
          Width = 312
          Height = 21
          Hint = 'Numero do Documento'
          DataField = 'CAL_AUTORIZACAO'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 16
        end
        object DBE_Parcelas: TDBEdit
          Left = 328
          Top = 158
          Width = 89
          Height = 21
          Hint = 'Quantidade de parcelas do documento '
          DataField = 'CAL_PARCELAS'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 17
          OnExit = DBE_ParcelasExit
        end
        object DBE_Taxa: TDBEdit
          Left = 425
          Top = 158
          Width = 96
          Height = 21
          TabStop = False
          Ctl3D = True
          DataField = 'CAL_TAXA'
          DataSource = DtSrc
          Enabled = False
          ParentCtl3D = False
          TabOrder = 18
          OnExit = DBE_TaxaExit
        end
        object DBE_Valor: TDBEdit
          Left = 527
          Top = 158
          Width = 116
          Height = 21
          Hint = 'Valor do documento'
          DataField = 'CAL_VALOR'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 19
          OnExit = DBE_ValorExit
        end
        object EdtCartao: TDBEdit
          Left = 9
          Top = 78
          Width = 58
          Height = 21
          Hint = 'Informe o c'#243'digo do banco '
          CharCase = ecUpperCase
          DataField = 'CAL_IDFCARTAO'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
          OnExit = EdtCartaoExit
        end
        object BitBtnCartao: TBitBtn
          Left = 67
          Top = 78
          Width = 21
          Height = 21
          Hint = 'Consulta bancos cadastrados'
          Caption = '...'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 7
          TabStop = False
          OnClick = BitBtnCartaoClick
        end
        object EdtCrtNom: TEdit
          Left = 88
          Top = 78
          Width = 361
          Height = 21
          Hint = 'Exibe a fantasia da empresa.'
          TabStop = False
          Color = clBtnFace
          Ctl3D = True
          ParentCtl3D = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = False
          TabOrder = 8
        end
        object DBE_Lote: TDBEdit
          Left = 452
          Top = 78
          Width = 189
          Height = 21
          Hint = 'Numero do Documento'
          DataField = 'CAL_LOTE'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
        end
        object EditEmpresa_Descri: TEdit
          Left = 296
          Top = 41
          Width = 345
          Height = 21
          Hint = 'Exibe a fantasia da empresa.'
          TabStop = False
          Color = clBtnFace
          Ctl3D = True
          ParentCtl3D = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = False
          TabOrder = 5
        end
        object BitBtnEmpresa: TBitBtn
          Left = 273
          Top = 41
          Width = 21
          Height = 21
          Hint = 'Pesquisa empresa.'
          Caption = '...'
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          TabStop = False
          OnClick = BitBtnEmpresaClick
        end
        object DBEditEmpresa_IDF: TDBEdit
          Left = 242
          Top = 41
          Width = 32
          Height = 21
          Hint = 'C'#243'digo da Empresa '
          CharCase = ecUpperCase
          DataField = 'CAL_EMPRESA'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnExit = DBEditEmpresa_IDFExit
        end
        object DBE_Data: TDBEdit
          Left = 135
          Top = 40
          Width = 98
          Height = 21
          Hint = 'Data do documento'
          DataField = 'CAL_DATA'
          DataSource = DtSrc
          Enabled = False
          MaxLength = 8
          ParentShowHint = False
          ShowHint = True
          TabOrder = 2
          OnExit = DBE_DataExit
        end
        object Dbe_Documento: TDBEdit
          Left = 9
          Top = 40
          Width = 121
          Height = 21
          Hint = 'Numero do Documento'
          DataField = 'CAL_DOCUMENTO'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
        end
        object Panel5: TPanel
          Left = 1
          Top = 1
          Width = 653
          Height = 16
          Align = alTop
          Caption = 'Lan'#231'amentos'
          Color = clSkyBlue
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
        end
        object edt_conta: TDBEdit
          Left = 8
          Top = 120
          Width = 57
          Height = 21
          DataField = 'CAL_CONTA'
          DataSource = DtSrc
          TabOrder = 10
          OnExit = edt_contaExit
        end
        object edt_subconta: TDBEdit
          Left = 328
          Top = 120
          Width = 57
          Height = 21
          DataField = 'CAL_SUBCONTA'
          DataSource = DtSrc
          TabOrder = 13
          OnExit = edt_subcontaExit
        end
        object st_conta: TStaticText
          Left = 89
          Top = 120
          Width = 233
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 12
        end
        object st_subconta: TStaticText
          Left = 408
          Top = 120
          Width = 233
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 15
        end
        object bnt_conta: TBitBtn
          Left = 67
          Top = 120
          Width = 21
          Height = 21
          Caption = '...'
          Enabled = False
          TabOrder = 11
          TabStop = False
          OnClick = bnt_contaClick
        end
        object btn_subconta: TBitBtn
          Left = 387
          Top = 120
          Width = 21
          Height = 21
          Caption = '...'
          Enabled = False
          TabOrder = 14
          TabStop = False
          OnClick = btn_subcontaClick
        end
      end
    end
  end
  inherited DtSrc: TDataSource
    AutoEdit = False
    DataSet = SQLC_Cartao_lan
    OnStateChange = DtSrcStateChange
    Left = 48
    Top = 417
  end
  object DtSrcLancamentos: TDataSource
    AutoEdit = False
    DataSet = SQL_Cartao_lan_parcelas
    OnStateChange = DtSrcStateChange
    Left = 50
    Top = 361
  end
  object dsp_Src: TDataSetProvider
    DataSet = ZQry_Cartao_Lan
    Left = 421
    Top = 421
  end
  object SQLC_Cartao_lan: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PIDFDOC'
        ParamType = ptUnknown
        Value = 0
      end>
    ProviderName = 'dsp_Src'
    Left = 525
    Top = 418
    object SQLC_Cartao_lanCAL_DOCUMENTO: TStringField
      FieldName = 'CAL_DOCUMENTO'
      Required = True
      Size = 13
    end
    object SQLC_Cartao_lanCAL_DATA: TDateField
      FieldName = 'CAL_DATA'
      Required = True
    end
    object SQLC_Cartao_lanCAL_IDFCARTAO: TStringField
      FieldName = 'CAL_IDFCARTAO'
      Required = True
      Size = 15
    end
    object SQLC_Cartao_lanCAL_HISTORICO: TMemoField
      FieldName = 'CAL_HISTORICO'
      BlobType = ftMemo
    end
    object SQLC_Cartao_lanCAL_VALOR: TFloatField
      FieldName = 'CAL_VALOR'
      Required = True
      DisplayFormat = '0.00'
    end
    object SQLC_Cartao_lanCAL_TAXA: TFloatField
      FieldName = 'CAL_TAXA'
      Required = True
      DisplayFormat = '0.00'
    end
    object SQLC_Cartao_lanCAL_EMPRESA: TSmallintField
      FieldName = 'CAL_EMPRESA'
      Required = True
    end
    object SQLC_Cartao_lanCAL_IDFDOCUMENTO: TIntegerField
      FieldName = 'CAL_IDFDOCUMENTO'
      Required = True
    end
    object SQLC_Cartao_lanCAL_PARCELAS: TIntegerField
      FieldName = 'CAL_PARCELAS'
      Required = True
    end
    object SQLC_Cartao_lanCAL_LOTE: TStringField
      FieldName = 'CAL_LOTE'
      Size = 13
    end
    object SQLC_Cartao_lanCAL_AUTORIZACAO: TStringField
      FieldName = 'CAL_AUTORIZACAO'
      Size = 13
    end
    object SQLC_Cartao_lanCAL_CANCELADO: TStringField
      FieldName = 'CAL_CANCELADO'
      Size = 1
    end
    object SQLC_Cartao_lanCAL_USRINCLUSAO: TStringField
      FieldName = 'CAL_USRINCLUSAO'
      Size = 3
    end
    object SQLC_Cartao_lanCAL_USRALTERACAO: TStringField
      FieldName = 'CAL_USRALTERACAO'
      Size = 3
    end
    object SQLC_Cartao_lanCAL_DTHINCLUSAO: TDateTimeField
      FieldName = 'CAL_DTHINCLUSAO'
    end
    object SQLC_Cartao_lanCAL_DTHALTERACAO: TDateTimeField
      FieldName = 'CAL_DTHALTERACAO'
    end
    object SQLC_Cartao_lanCAL_CONTA: TStringField
      FieldName = 'CAL_CONTA'
      Required = True
      Size = 3
    end
    object SQLC_Cartao_lanCAL_SUBCONTA: TStringField
      FieldName = 'CAL_SUBCONTA'
      Required = True
      Size = 3
    end
  end
  object SQL_Cartao_lan_parcelas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pidfdocumento'
        ParamType = ptInput
        Value = 0
      end>
    ProviderName = 'dsp_SrcLancamentos'
    Left = 529
    Top = 361
    object SQL_Cartao_lan_parcelasCLP_IDFDOCUMENTO: TIntegerField
      FieldName = 'CLP_IDFDOCUMENTO'
      Required = True
    end
    object SQL_Cartao_lan_parcelasCLP_SEQ_PARCELA: TIntegerField
      FieldName = 'CLP_SEQ_PARCELA'
      Required = True
    end
    object SQL_Cartao_lan_parcelasCLP_VALOR: TFloatField
      FieldName = 'CLP_VALOR'
      Required = True
      DisplayFormat = '0.00'
    end
    object SQL_Cartao_lan_parcelasCLP_TAXA: TFloatField
      FieldName = 'CLP_TAXA'
      DisplayFormat = '0.00'
    end
    object SQL_Cartao_lan_parcelasCLP_DATA_VENCIMENTO: TDateField
      FieldName = 'CLP_DATA_VENCIMENTO'
      Required = True
    end
    object SQL_Cartao_lan_parcelasCLP_DATA_RECEBIMENTO: TDateField
      FieldName = 'CLP_DATA_RECEBIMENTO'
    end
    object SQL_Cartao_lan_parcelasCLP_VALOR_A_RECEBER: TFloatField
      FieldName = 'CLP_VALOR_A_RECEBER'
      Required = True
      DisplayFormat = '0.00'
    end
    object SQL_Cartao_lan_parcelasCLP_VALOR_RECEBIDO: TFloatField
      FieldName = 'CLP_VALOR_RECEBIDO'
      DisplayFormat = '0.00'
    end
    object SQL_Cartao_lan_parcelasCLP_DATA_ANTECIPA: TDateField
      FieldName = 'CLP_DATA_ANTECIPA'
    end
    object SQL_Cartao_lan_parcelasCLP_TAXA_ANTECIPA: TFloatField
      FieldName = 'CLP_TAXA_ANTECIPA'
      DisplayFormat = '0.00'
    end
    object SQL_Cartao_lan_parcelasCLP_DESC_ANTECIPA: TFloatField
      FieldName = 'CLP_DESC_ANTECIPA'
      DisplayFormat = '0.00'
    end
    object SQL_Cartao_lan_parcelasCLP_DTHALTERACAO: TDateTimeField
      FieldName = 'CLP_DTHALTERACAO'
    end
    object SQL_Cartao_lan_parcelasCLP_DTHINCLUSAO: TDateTimeField
      FieldName = 'CLP_DTHINCLUSAO'
    end
    object SQL_Cartao_lan_parcelasCLP_DTHBAIXA: TDateTimeField
      FieldName = 'CLP_DTHBAIXA'
    end
    object SQL_Cartao_lan_parcelasCLP_USRINCLUSAO: TStringField
      FieldName = 'CLP_USRINCLUSAO'
      Size = 3
    end
    object SQL_Cartao_lan_parcelasCLP_USRALTERACAO: TStringField
      FieldName = 'CLP_USRALTERACAO'
      Size = 3
    end
    object SQL_Cartao_lan_parcelasCLP_USRBAIXA: TStringField
      FieldName = 'CLP_USRBAIXA'
      Size = 3
    end
    object SQL_Cartao_lan_parcelasCLP_BANCOLANIDF: TIntegerField
      FieldName = 'CLP_BANCOLANIDF'
    end
    object SQL_Cartao_lan_parcelasCLP_ESTORNADO: TStringField
      FieldName = 'CLP_ESTORNADO'
      Size = 1
    end
  end
  object dsp_SrcLancamentos: TDataSetProvider
    DataSet = ZQry_Cartao_Lan_Parcelas
    Left = 413
    Top = 365
  end
  object ZQry_Cartao_Lan: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdateCartaoLan
    SQL.Strings = (
      'SELECT * FROM CARTAO_LANCAMENTO WHERE CAL_IDFDOCUMENTO =:PIDFDOC')
    Params = <
      item
        DataType = ftInteger
        Name = 'PIDFDOC'
        ParamType = ptUnknown
        Value = 0
      end>
    Left = 176
    Top = 416
    ParamData = <
      item
        DataType = ftInteger
        Name = 'PIDFDOC'
        ParamType = ptUnknown
        Value = 0
      end>
  end
  object ZQry_Cartao_Lan_Parcelas: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdateCartaoParcelas
    SQL.Strings = (
      
        'select * from CARTAO_LANCAMENTO_PARCELAS where clp_idfdocumento=' +
        ':pidfdocumento'
      '')
    Params = <
      item
        DataType = ftInteger
        Name = 'pidfdocumento'
        ParamType = ptInput
        Value = 0
      end>
    Left = 173
    Top = 365
    ParamData = <
      item
        DataType = ftInteger
        Name = 'pidfdocumento'
        ParamType = ptInput
        Value = 0
      end>
  end
  object ZUpdateCartaoLan: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM CARTAO_LANCAMENTO'
      'WHERE'
      '  CARTAO_LANCAMENTO.CAL_IDFDOCUMENTO = '
      ':OLD_CAL_IDFDOCUMENTO')
    InsertSQL.Strings = (
      'INSERT INTO CARTAO_LANCAMENTO'
      '  (CAL_DOCUMENTO, CAL_DATA, CAL_IDFCARTAO, CAL_HISTORICO, '
      'CAL_VALOR, CAL_TAXA, '
      '   CAL_EMPRESA, CAL_PARCELAS, CAL_LOTE, CAL_AUTORIZACAO, '
      '   CAL_CANCELADO, CAL_USRINCLUSAO, CAL_USRALTERACAO, '
      'CAL_DTHINCLUSAO, CAL_DTHALTERACAO, '
      '   CAL_CONTA, CAL_SUBCONTA)'
      'VALUES'
      '  (:CAL_DOCUMENTO, :CAL_DATA, :CAL_IDFCARTAO, '
      ':CAL_HISTORICO, :CAL_VALOR, '
      '   :CAL_TAXA, :CAL_EMPRESA, :CAL_PARCELAS, :CAL_LOTE, '
      '   :CAL_AUTORIZACAO, :CAL_CANCELADO, :CAL_USRINCLUSAO, '
      ':CAL_USRALTERACAO, '
      '   :CAL_DTHINCLUSAO, :CAL_DTHALTERACAO, :CAL_CONTA, '
      ':CAL_SUBCONTA)')
    ModifySQL.Strings = (
      'UPDATE CARTAO_LANCAMENTO SET'
      '  CAL_DOCUMENTO = :CAL_DOCUMENTO,'
      '  CAL_DATA = :CAL_DATA,'
      '  CAL_IDFCARTAO = :CAL_IDFCARTAO,'
      '  CAL_HISTORICO = :CAL_HISTORICO,'
      '  CAL_VALOR = :CAL_VALOR,'
      '  CAL_TAXA = :CAL_TAXA,'
      '  CAL_EMPRESA = :CAL_EMPRESA,'
      '  CAL_PARCELAS = :CAL_PARCELAS,'
      '  CAL_LOTE = :CAL_LOTE,'
      '  CAL_AUTORIZACAO = :CAL_AUTORIZACAO,'
      '  CAL_CANCELADO = :CAL_CANCELADO,'
      '  CAL_USRINCLUSAO = :CAL_USRINCLUSAO,'
      '  CAL_USRALTERACAO = :CAL_USRALTERACAO,'
      '  CAL_DTHINCLUSAO = :CAL_DTHINCLUSAO,'
      '  CAL_DTHALTERACAO = :CAL_DTHALTERACAO,'
      '  CAL_CONTA = :CAL_CONTA,'
      '  CAL_SUBCONTA = :CAL_SUBCONTA'
      'WHERE'
      '  CARTAO_LANCAMENTO.CAL_IDFDOCUMENTO = '
      ':OLD_CAL_IDFDOCUMENTO')
    UseSequenceFieldForRefreshSQL = False
    Left = 301
    Top = 421
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CAL_DOCUMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_DATA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_IDFCARTAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_HISTORICO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_TAXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_PARCELAS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_LOTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_AUTORIZACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_CANCELADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_USRINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_USRALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_DTHINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_DTHALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_CONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CAL_SUBCONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_CAL_IDFDOCUMENTO'
        ParamType = ptUnknown
      end>
  end
  object ZUpdateCartaoParcelas: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM CARTAO_LANCAMENTO_PARCELAS'
      'WHERE'
      '  CARTAO_LANCAMENTO_PARCELAS.CLP_IDFDOCUMENTO = '
      ':OLD_CLP_IDFDOCUMENTO AND'
      '  CARTAO_LANCAMENTO_PARCELAS.CLP_SEQ_PARCELA = '
      ':OLD_CLP_SEQ_PARCELA')
    InsertSQL.Strings = (
      'INSERT INTO CARTAO_LANCAMENTO_PARCELAS'
      '  (CLP_IDFDOCUMENTO, CLP_SEQ_PARCELA, CLP_VALOR, '
      'CLP_TAXA, CLP_DATA_VENCIMENTO, '
      '   CLP_DATA_RECEBIMENTO, CLP_VALOR_A_RECEBER, '
      'CLP_VALOR_RECEBIDO, CLP_DATA_ANTECIPA, '
      '   CLP_TAXA_ANTECIPA, CLP_DESC_ANTECIPA, '
      'CLP_DTHALTERACAO, CLP_DTHINCLUSAO, '
      '   CLP_DTHBAIXA, CLP_USRINCLUSAO, CLP_USRALTERACAO, '
      'CLP_USRBAIXA, CLP_BANCOLANIDF, '
      '   CLP_ESTORNADO)'
      'VALUES'
      '  (:CLP_IDFDOCUMENTO, :CLP_SEQ_PARCELA, :CLP_VALOR, '
      ':CLP_TAXA, :CLP_DATA_VENCIMENTO, '
      '   :CLP_DATA_RECEBIMENTO, :CLP_VALOR_A_RECEBER, '
      ':CLP_VALOR_RECEBIDO, :CLP_DATA_ANTECIPA, '
      '   :CLP_TAXA_ANTECIPA, :CLP_DESC_ANTECIPA, '
      ':CLP_DTHALTERACAO, :CLP_DTHINCLUSAO, '
      '   :CLP_DTHBAIXA, :CLP_USRINCLUSAO, :CLP_USRALTERACAO, '
      ':CLP_USRBAIXA, :CLP_BANCOLANIDF, '
      '   :CLP_ESTORNADO)')
    ModifySQL.Strings = (
      'UPDATE CARTAO_LANCAMENTO_PARCELAS SET'
      '  CLP_SEQ_PARCELA = :CLP_SEQ_PARCELA,'
      '  CLP_VALOR = :CLP_VALOR,'
      '  CLP_TAXA = :CLP_TAXA,'
      '  CLP_DATA_VENCIMENTO = :CLP_DATA_VENCIMENTO,'
      '  CLP_DATA_RECEBIMENTO = :CLP_DATA_RECEBIMENTO,'
      '  CLP_VALOR_A_RECEBER = :CLP_VALOR_A_RECEBER,'
      '  CLP_VALOR_RECEBIDO = :CLP_VALOR_RECEBIDO,'
      '  CLP_DATA_ANTECIPA = :CLP_DATA_ANTECIPA,'
      '  CLP_TAXA_ANTECIPA = :CLP_TAXA_ANTECIPA,'
      '  CLP_DESC_ANTECIPA = :CLP_DESC_ANTECIPA,'
      '  CLP_DTHALTERACAO = :CLP_DTHALTERACAO,'
      '  CLP_DTHINCLUSAO = :CLP_DTHINCLUSAO,'
      '  CLP_DTHBAIXA = :CLP_DTHBAIXA,'
      '  CLP_USRINCLUSAO = :CLP_USRINCLUSAO,'
      '  CLP_USRALTERACAO = :CLP_USRALTERACAO,'
      '  CLP_USRBAIXA = :CLP_USRBAIXA,'
      '  CLP_BANCOLANIDF = :CLP_BANCOLANIDF,'
      '  CLP_ESTORNADO = :CLP_ESTORNADO'
      'WHERE'
      '  CARTAO_LANCAMENTO_PARCELAS.CLP_IDFDOCUMENTO = '
      ':OLD_CLP_IDFDOCUMENTO AND'
      '  CARTAO_LANCAMENTO_PARCELAS.CLP_SEQ_PARCELA = '
      ':OLD_CLP_SEQ_PARCELA')
    UseSequenceFieldForRefreshSQL = False
    Left = 301
    Top = 365
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'CLP_SEQ_PARCELA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_TAXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_DATA_VENCIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_DATA_RECEBIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_VALOR_A_RECEBER'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_VALOR_RECEBIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_DATA_ANTECIPA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_TAXA_ANTECIPA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_DESC_ANTECIPA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_DTHALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_DTHINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_DTHBAIXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_USRINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_USRALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_USRBAIXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_BANCOLANIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_ESTORNADO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_CLP_IDFDOCUMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_CLP_SEQ_PARCELA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CLP_IDFDOCUMENTO'
        ParamType = ptUnknown
      end>
  end
end
